home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 90 / 090.d81 / dazz boot (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  1.3 KB  |  37 lines
  1. 10 dv=peek(186):ifdv<8thendv=8
  2. 11 ifa=0thena=1:load"dazz reader",dv,1
  3. 12 ifa=1thena=2:load"dazz menu",dv,1
  4. 13 poke186,dv:poke56,32:clr:dv=peek(186)
  5. 20 poke51253,dv:gosub70:gosub300
  6. 30 print"[144]":print""
  7. 40 print "load";chr$(34);f$;chr$(34)","dv
  8. 50 print"run"
  9. 60 poke631,13:poke632,13:poke633,5:poke198,4:end
  10. 70 print"[147]":poke53280,0:poke53281,0:iffthenreturn
  11. 80 poke214,10:print"[145]";
  12. 85 print"[159][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][154][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";
  13. 90 fori=1to12:print"[159][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][154][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next:print""
  14. 100 fori=217to242:pokei,peek(i)or128:next
  15. 110 poke214,12:print"[145]"tab(2)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  16. 120 fori=1to7:printtab(2)"[155]                                    [146][223]":next
  17. 130 printtab(2)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][223]"
  18. 140 print"[169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][154][223]"
  19. 150 poke214,14:print"[145][155]";
  20. 160 fori=1to5:reada$:gosub170:next:goto180
  21. 170 printspc(20-len(a$)/2)""a$:a$="":return
  22. 180 f$="star basic demo":return
  23. 190 data"[211][160][195][160][210][160][197][160][197][160][206] [160][160][196][160][193][160][218][160][218][160][204][160][197] [210]","by [194]rian [197]ddy
  24. 200 [131]"(NULL)1.0 (NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #90","(NULL)ubscriptions 1-800-831-2694"
  25. 210 [131]"lenopyright (len) 1991 (NULL)oftdisk"
  26. 300 a1$[178]" 1. (NULL)ead atnll atnbout right$t       "
  27. 310 a2$[178]" 2. (NULL)(NULL)(NULL) (NULL)len(NULL)valval(NULL)closestr$atn(NULL)(NULL)(NULL)val(NULL)      "
  28. 320 a3$[178]" 3. (NULL)eturn (NULL)o (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)      "
  29. 340 [151]781,0:[158]59903:[158]49152,3,6,2,13[170]64,1,3,a1$,a2$,a3$
  30. 350 [153]""[166]10)"(NULL) (NULL)closeatnclosestr$closeright$close(NULL) chr$close.close.close."
  31. 360 [161]a$:[145][197](a$)[137]400,500,600
  32. 400 [158]51200,"dazz text","atn(NULL)(NULL)closeatnpeek(NULL)(NULL)(NULL)close(NULL)len(NULL)valval(NULL) str$atn(NULL)(NULL)(NULL)val(NULL)":[137]340
  33. 500 f$[178]"dazzler":[142]
  34. 600 f$[178]"hello connect":[142]
  35. 9999 [144]
  36. 10000 [148]"@0:dazz boot",8
  37.